home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / FORTH / FORTHMAC / OLD / TOOLS1 / !Forthmacs.lib.clock < prev    next >
Text File  |  1996-05-30  |  177b  |  10 lines
  1. \ simple clock hs 09.02.95
  2. task: clock
  3. : do-clock
  4.     multi clock activate multi
  5.     begin    single at-xy?
  6.         #columns d# 13 -  0 at-xy  .now
  7.         at-xy  multi d# 1000 ms
  8.     again ;
  9. do-clock
  10.